home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / DFUE / SimpleFTP / InstallOS3.5 < prev    next >
Encoding:
Text File  |  2000-04-24  |  5.3 KB  |  217 lines
  1. ; Installer Script for SimpleFTP (AmigaOS 3.5)
  2. ; $VER: SimpleFTP-Install v1.2 (24.4.00) (OS3.5)
  3.  
  4. (effect "lower_left" "horizontal" $000000 $000000)
  5. (set #logo "Install-Logo.gif")
  6. (set #register "Install-Register.gif")
  7. (set #thanks "Install-Thanks.gif")
  8.  
  9. (set #ask-email
  10. (cat "Please enter your e-mail address, this is needed for\n"
  11.      "logging into servers that require anonymous access."
  12. ))
  13.  
  14. (set #install-docs
  15. (cat "Install documentation?\n"
  16. ))
  17.  
  18. (set #select-lang
  19. (cat "Select language:"
  20. ))
  21.  
  22. (set #not-installed
  23. (cat "\nSimpleFTP has NOT been installed.\n"
  24. ))
  25.  
  26. (set #goodbye
  27. (cat "\nInstallation of SimpleFTP is complete.\n\n"
  28.      "If you have used a version previous to v1.83,\n"
  29.      "but after v1.80, it is important that you run\n"
  30.      "the SiteConverter tool to update your saved\n"
  31.      "list of favourite FTP sites.\n"
  32.      "(Copy it to your SimpleFTP directory first)"
  33. ))
  34.  
  35. (set #select-dir
  36. (cat "Please select somewhere to install SimpleFTP\n"
  37.      "(A directory is NOT created for you)"
  38. ))
  39.  
  40. (set #my-address
  41. (cat "\nContact Information\n\n"
  42.      "Author: Rick Hodger\n"
  43.      "e-Mail: rick@thehub.u-net.com\n"
  44.      "Bugs: bugs@thehub.u-net.com\n"
  45.      "Web: http://www.thehub.u-net.com\n"
  46. ))
  47.  
  48. (set #copyright
  49. (cat "\nSimpleFTP is (C) Copyright 1998-2000 Rick Hodger\n"
  50.      "Written by Rick Hodger\n\n"
  51.      "The author in no way offers any guarantees or warranties "
  52.      "with this program.  By continuing this installation, "
  53.      "you agree that the author is in no way responsable "
  54.      "for any damage caused.\n\n"
  55.      "Do you agree to these terms?"
  56. ))
  57.  
  58. (set #not-enough-space
  59. (cat "\nSorry, you do not have enough space on this drive\n"
  60.      "to install SimpleFTP.  The installation requires 270kb\n"
  61.      "of free space."
  62. ))
  63.  
  64. ;**************************************************************************************************
  65.  
  66. (showmedia 'logo' #logo 'upper_right' 'none' 0)
  67.  
  68. (user 2)
  69.  
  70. (complete 5)
  71. (set agree (askbool (prompt #copyright)
  72.       (help #install-docs-help)
  73.       (choices "Yes" "No")
  74.      )
  75. )
  76.  
  77. (if (= agree 0)       (
  78.   (message #not-installed)
  79.   (exit (quiet))
  80. ))
  81.  
  82. ;******************************************** Locale Stuff *****************************************
  83.  
  84. (complete 10)
  85.   (set catalog
  86.     (askchoice
  87.       (choices "English (Built-in)" "Czech" "Deutsch" "Español" "Français" "Greek" "Italiano" "Norsk" "Português" "Svenska")
  88.        (prompt #select-lang)
  89.       (help   "None here")
  90.     )
  91.   )
  92.   (set loc-target "LOCALE:Catalogs/")
  93.   (set loc-source "locale/")
  94.  
  95.   (if (= catalog 1)     (
  96.     (set loc-target (tackon loc-target "Czech"))
  97.     (set loc-source (tackon loc-source "Czech"))
  98.     (set loc-use 1)
  99.   ))
  100.  
  101.   (if (= catalog 2)     (
  102.     (set loc-target (tackon loc-target "Deutsch"))
  103.     (set loc-source (tackon loc-source "Deutsch"))
  104.     (set loc-use 1)
  105.   ))
  106.    
  107.   (if (= catalog 3)     (
  108.     (set loc-target (tackon loc-target "Español"))
  109.     (set loc-source (tackon loc-source "Español"))
  110.     (set loc-use 1)
  111.   ))
  112.  
  113.   (if (= catalog 4)     (
  114.     (set loc-target (tackon loc-target "Français"))
  115.     (set loc-source (tackon loc-source "Français"))
  116.     (set loc-use 1)
  117.   ))
  118.  
  119.   (if (= catalog 5)     (
  120.     (set loc-target (tackon loc-target "Greek"))
  121.     (set loc-source (tackon loc-source "Greek"))
  122.     (set loc-use 1)
  123.   ))
  124.  
  125.   (if (= catalog 6)     (
  126.     (set loc-target (tackon loc-target "Italiano"))
  127.     (set loc-source (tackon loc-source "Italiano"))
  128.     (set loc-use 1)
  129.   ))
  130.  
  131.   (if (= catalog 7)     (
  132.     (set loc-target (tackon loc-target "Norsk"))
  133.     (set loc-source (tackon loc-source "Norsk"))
  134.     (set loc-use 1)
  135.   ))
  136.  
  137.   (if (= catalog 8)     (
  138.     (set loc-target (tackon loc-target "Português"))
  139.     (set loc-source (tackon loc-source "Português"))
  140.     (set loc-use 1)
  141.   ))
  142.  
  143.   (if (= catalog 9)     (
  144.     (set loc-target (tackon loc-target "Svenska"))
  145.     (set loc-source (tackon loc-source "Svenska"))
  146.     (set loc-use 1)
  147.   ))
  148.  
  149. (if (= loc-use 1)    (
  150.   (set loc-source (tackon loc-source "SimpleFTP.catalog"))
  151. ;  (if (< (exists (loc-target)) 2) makedir loc-target) )
  152.   (copyfiles (
  153.     (source loc-source)
  154.     (dest   loc-target)
  155.   ))
  156. ))
  157.  
  158. ;*************************************** Select destination ****************************************
  159.  
  160. (complete 20)
  161. (set target1         (askdir
  162.    (help   "No help here matey!")
  163.    (prompt #select-dir)
  164.    (default "Miami:")
  165. ))
  166.  
  167. (set size (getdiskspace target1))
  168. (If (< size 276480) (
  169.    (message #not-enough-space)
  170.    (exit (quiet))
  171. ))
  172.  
  173. (set target2 target1)
  174.  
  175. (complete 40)
  176. (copyfiles (
  177.    (prompt "Select files you want installed")
  178.    (help   "Umm....duh?")
  179.    (source  "")
  180.    (dest    target1)
  181.    (choices "SimpleFTP" "SimpleFTP.info" "SimpleFTP.cfg" "SimpleFTP.sites" "Icons" )
  182.    (CONFIRM)
  183. ))
  184.  
  185. (closemedia logo)
  186. (showmedia 'register' #register 'upper_right' 'none' 0)
  187. ;(set email (askstring (
  188. ;             (default "email@anonymous.com")
  189. ;             (prompt  #ask-email)
  190. ;             (help    "Which question didn't you understand?")
  191. ;           ))
  192. ;)
  193.  
  194. ;(tooltype (
  195. ;      (dest (tackon target1 "SimpleFTP"))
  196. ;      (settooltype "EMAIL" email)
  197. ;))
  198.  
  199. (complete 80)
  200. (copyfiles (
  201.    (prompt "Select files you want installed")
  202.    (help   "Umm...duh?")
  203.    (source "")
  204.    (dest   target1)
  205.    (choices "Docs" "Docs.info")
  206.    (CONFIRM)
  207. ))
  208.  
  209. (closemedia register)
  210. (showmedia 'thanks' #thanks 'upper_right' 'none' 0)
  211. (complete 100)
  212. (message #goodbye)
  213. (message #my-address)
  214.  
  215. (openwbobject target1)
  216. (exit (quiet))
  217.